home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / animutil / fastgfx / fg303e / expas.arj / FGDOC / EXAMPLES / PASCAL / 15-08.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-30  |  339 b   |  17 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. begin
  5.   fg_musicb('T150 L8 EDCDEEE P DDD P EGG P EDCDEEE L16 P L8 EDDEDC$',1);
  6.   fg_waitkey;
  7.  
  8.   fg_suspend;
  9.   writeln('Music suspended.  Press any key to resume.');
  10.   fg_waitkey;
  11.  
  12.   fg_resume;
  13.   writeln('Music resumed.');
  14.   while (fg_playing = 1) do;
  15.   writeln('Music finished.');
  16. end.
  17.